What PC? 1996 August/WPCAUG96.ISO/refwaug.dxr/00022_REFAdIdxUpdateSection .ls

Text File | 1996-06-14 | 727 b | 25 lines

on REFAdIdxUpdateSection
  global REFSpriteCastNums, REFAdVideoList, REFMasterList, REFAdIdxChosenAd, REFChoosen
  repeat with g = 31 to 34
    set REFChoosen to 0
    if rollOver(g) then
      set the castNum of sprite g to the castNum of sprite g + 1
      updateStage()
      repeat while rollOver(g)
        if the mouseDown then
          set REFAdIdxChosenAd to g - 30
          set REFChoosen to 1
          set the castNum of sprite g to the castNum of sprite g - 1
          REFLeave(2)
          updateStage()
        end if
      end repeat
      if REFChoosen = 0 then
        set the castNum of sprite g to the castNum of sprite g - 1
      end if
      updateStage()
    end if
    updateStage()
  end repeat
end